perm filename CIRSUB.MF[MF,ALS] blob sn#571670 filedate 1981-03-19 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	% Common routine for CIRCLE.MF
C00003 ENDMK
CāŠ—;
% Common routine for CIRCLE.MF
x1=y4=0; x2=y1=y3=x4=s.pts.pixels/2; x3=y2=s.pts.pixels;
cpen; 
charht s.pts; charwd s.pts; chardw round s.pts;
w0 draw 1{0,1}..2{1,0}..3{0,-1}..4{-1,0}..1{0,1}.